#!/usr/bin/perl
#
# usage:
# ./destroyJob JobID node [node ...]

$HOME_DIR = "/home/one-tenth";
$HOME_DIR = $ENV{'CHOPSET_HOME'} if($ENV{'CHOPSET_HOME'} ne '');

require "$HOME_DIR/config.ph";

$targetJobID = shift;
if($#ARGV >= 0){
	@nodes = @ARGV;
}else{
	@nodes = &getNodeList();
}
foreach $node (@nodes){
	&killJob($targetJobID, $node);
}
